home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 September / Ahoy_Magazine_86-09_1986_Double_L.d64 / Print Maker (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  453b  |  16 lines
  1. 0 poke 53280,7:poke 53281,7
  2. 1 rem commodares problem #29-1:
  3. 2 rem     print maker
  4. 3 rem solution by
  5. 4 rem    dan brumbaugh
  6. 5 rem
  7. 10 input"[147]enter line number";ln$:print"[147]-[157]";
  8. 20 get a$:if a$="" then 20
  9. 30 a=asc(a$) : if a=34 then 20
  10. 40 if a=13 or len(s$)=71-len(ln$)then 60
  11. 50 print" [157]"a$"-[157]";:s$=s$+a$:goto 20
  12. 60 q$=chr$(34):print"[147]"ln$" print"q$"[147]"s$q$""
  13. 70 kbf=631 : ndx=198 :rem assume c-64
  14. 80 if ds$<>"" then kbf=842 : ndx=208    :rem must have c-128 instead
  15. 90 poke kbf,13 : poke ndx,1 : end
  16.